(Info-insert-dir): Chase symlinks for file-attributes.

diff --git a/lisp/info.el b/lisp/info.el
index a88b28ddbf5104bbf2ba19e9ae4b927d6821e3ca..a81da542d36ce3ab95ee6b0ccd51827c4c968dc7 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -585,7 +585,10 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
           ;; since we used it.
           (eval (cons 'and
                       (mapcar '(lambda (elt)
-                                 (let ((curr (file-attributes (car elt))))
+                                 (let ((curr (file-attributes 
+                                              ;; Handle symlinks
+                                              (file-truename (car elt)))))
+                                   
                                    ;; Don't compare the access time.
                                    (if curr (setcar (nthcdr 4 curr) 0))
                                    (setcar (nthcdr 4 (cdr elt)) 0)